home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Doc / ToolWin.int < prev    next >
Encoding:
Text File  |  2001-05-22  |  2.4 KB  |  71 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {  Copyright (c) 1995-2001 Borland Software Corporation }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ToolWin;
  11.  
  12. {$R-,H+,X+}
  13.  
  14. interface
  15.  
  16. uses Windows, Messages, Classes, Controls, Forms;
  17.  
  18. type
  19.  
  20. { TToolWindow }
  21.  
  22.   TEdgeBorder = (ebLeft, ebTop, ebRight, ebBottom);
  23.   TEdgeBorders = set of TEdgeBorder;
  24.  
  25.   TEdgeStyle = (esNone, esRaised, esLowered);
  26.  
  27.   TToolWindow = class(TWinControl)
  28.   protected
  29.     procedure NCPaint(DC: HDC); virtual;
  30.     procedure WMNCCalcSize(var Message: TWMNCCalcSize); message WM_NCCALCSIZE;
  31.     procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;
  32.     procedure CMBorderChanged(var Message: TMessage); message CM_BORDERCHANGED;
  33.     procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
  34.   public
  35.     constructor Create(AOwner: TComponent); override;
  36.     property EdgeBorders: TEdgeBorders default [ebLeft, ebTop, ebRight, ebBottom];
  37.     property EdgeInner: TEdgeStyle default esRaised;
  38.     property EdgeOuter: TEdgeStyle default esLowered;
  39.   end;
  40.  
  41. { TToolDragDockObject }
  42.  
  43.   TToolDockObject = class(TDragDockObject)
  44.   protected
  45.     procedure AdjustDockRect(ARect: TRect); override;
  46.     procedure DrawDragDockImage; override;
  47.     procedure EraseDragDockImage; override;
  48.   public
  49.     constructor Create(AControl: TControl); override;
  50.   end;
  51.  
  52. { TToolDockForm }
  53.  
  54.   TSizingOrientation = (soNone, soHorizontal, soVertical);
  55.  
  56.   TToolDockForm = class(TCustomDockForm)
  57.   protected
  58.     function CanResize(var NewWidth, NewHeight: Integer): Boolean; override;
  59.     procedure CreateParams(var Params: TCreateParams); override;
  60.     procedure DoAddDockClient(Client: TControl; const ARect: TRect); override;
  61.     procedure WMNCCreate(var Message: TWMNCCreate); message WM_NCCREATE;
  62.     procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  63.     procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
  64.     procedure WMSize(var Message: TWMSize); message WM_SIZE;
  65.     procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  66.   public
  67.     constructor Create(AOwner: TComponent); override;
  68.   end;
  69.  
  70. implementation
  71.